home *** CD-ROM | disk | FTP | other *** search
/ Super League / Super League.iso / TELFNICA / INFO / EMPRESAS.DIR / 00033.ls < prev    next >
Encoding:
Text File  |  1997-04-23  |  905 b   |  51 lines
  1. on empresas
  2.   repeat with n = 32 down to 19
  3.     if the clickOn = n then
  4.       go((2 * n) - 28)
  5.     end if
  6.   end repeat
  7. end
  8.  
  9. on textos
  10.   set i to the frame
  11.   set h to (i - 11) * 2
  12.   puppetSprite(4, 1)
  13.   repeat with n = 38 down to 35
  14.     if the clickOn = n then
  15.       set the castNum of sprite 4 to n + 216 + h
  16.     end if
  17.   end repeat
  18.   play frame 35
  19. end
  20.  
  21. on texsis
  22.   puppetSprite(7, 1)
  23.   repeat with n = 38 down to 35
  24.     if the clickOn = n then
  25.       set the castNum of sprite 7 to n + 252
  26.     end if
  27.   end repeat
  28.   go(the frame - 1)
  29.   go(61)
  30. end
  31.  
  32. on textem
  33.   puppetSprite(7, 1)
  34.   repeat with n = 38 down to 35
  35.     if the clickOn = n then
  36.       set the castNum of sprite 7 to n + 256
  37.     end if
  38.   end repeat
  39.   go(63)
  40. end
  41.  
  42. on texvideo
  43.   puppetSprite(4, 1)
  44.   repeat with n = 37 down to 35
  45.     if the clickOn = n then
  46.       set the castNum of sprite 4 to n + 244
  47.     end if
  48.   end repeat
  49.   go("rolvideo")
  50. end
  51.